unit Controllers.MainFormActionController;

interface

uses
  System.SysUtils, System.Classes, System.Actions,
  Vcl.Forms, Vcl.ActnList;

type
  TMainFormActionController = class(TDataModule)
    ActListMenus: TActionList;
    ActCadastroAluno: TAction;
    ActCadastroProfessor: TAction;
    ActCadastroUsuario: TAction;
    ActCadastroAcesso: TAction;
    ActCadastroSair: TAction;
    procedure ActCadastroSairExecute(Sender: TObject);
  end;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TMainFormActionController.ActCadastroSairExecute(Sender: TObject);
begin
  Application.MainForm.Close;
end;

end.
